﻿#VisualFreeBasic_Form#  Version=5.8.11
Locked=0

[Form]
Name=Form2
ClassStyle=CS_VREDRAW,CS_HREDRAW,CS_DBLCLKS
ClassName=
WinStyle=WS_SYSMENU,WS_MINIMIZEBOX,WS_MAXIMIZEBOX,WS_VISIBLE,WS_EX_CONTROLPARENT,WS_EX_LEFT,WS_EX_LTRREADING,WS_EX_RIGHTSCROLLBAR,WS_CLIPSIBLINGS,WS_CLIPCHILDREN,WS_POPUP
Style=0 - 无边框
Icon=
Caption=
StartPosition=0 - 手动
WindowState=0 - 正常
Enabled=True
Repeat=False
Left=0
Top=0
Width=422
Height=317
TopMost=False
Child=False
MdiChild=False
TitleBar=False
SizeBox=False
SysMenu=True
MaximizeBox=True
MinimizeBox=True
Help=False
Hscroll=False
Vscroll=False
MinWidth=0
MinHeight=0
MaxWidth=0
MaxHeight=0
NoActivate=False
MousePass=True
TransPer=99
TransColor=SYS,25
Shadow=0 - 无阴影
BackColor=RGB(0,255,0)
MousePointer=0 - 默认
Tag=
Tab=True
ToolTip=
ToolTipBalloon=False
AcceptFiles=False


[AllCode]



'[Form2]事件 : 窗口完全显示后。
'hWndForm  当前窗口的句柄(WIN系统用来识别窗口的一个编号，如果多开本窗口，必须 Me.hWndForm = hWndForm 后才可以执行后续操作本窗口的代码)
'UserData  来自显示窗口最后1个参数，例： Form2.Show(父窗口句柄,模式,UserData)
Sub Form2_Shown(hWndForm As hWnd,UserData As Integer)


End Sub

'[Form2]事件 : 移动鼠标
'hWndForm    当前窗口的句柄(WIN系统用来识别窗口的一个编号，如果多开本窗口，必须 Me.hWndForm = hWndForm 后才可以执行后续操作本窗口的代码)
'MouseFlags  MK_CONTROL   MK_LBUTTON     MK_MBUTTON     MK_RBUTTON    MK_SHIFT     MK_XBUTTON1       MK_XBUTTON2 
''           CTRL键按下   鼠标左键按下   鼠标中键按下   鼠标右键按下  SHIFT键按下  第一个X按钮按下   第二个X按钮按下
'检查什么键按下用  If (MouseFlags And MK_CONTROL)<>0 Then CTRL键按下 
'xPos yPos   当前鼠标位置，相对于窗口。就是在窗口客户区里的坐标。
Sub Form2_WM_MouseMove(hWndForm As hWnd, MouseFlags As Long, xPos As Long, yPos As Long)
   If (MouseFlags And MK_LBUTTON)<>0  Then 

      DrawEllipse dc底图, xPos, yPos, AfxScaleX(5), AfxScaleX(5), 0, 0, BGR(255, 26, 26), BGR(255, 26, 26)
      Form1.Picture1.Refresh 
       'Print dc底图, xPos, yPos
      
   End If    
End Sub

'[Form2]事件 : 重绘最后，已经画好虚拟控件，用 gg 来画。
'hWndForm    当前窗口的句柄(WIN系统用来识别窗口的一个编号，如果多开本窗口，必须 Me.hWndForm = hWndForm 后才可以执行后续操作本窗口的代码)
'gg          yGDI画画类，封装了 GDI和GDI+的 API操作类，方便绘画。
'nBackColor  窗口背景颜色（GDI颜色值，由设计时设置）
Sub Form2_FormPaintEnd(hWndForm As hWnd, gg As yGDI, nBackColor As Long)

   
End Sub




